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Inside the 20hO Disk Drive 



Jim Eutterfield, Toronto 



Yes, you can look at the programs inside the 20UO. But unless you're 
strong in machine language - and have a bit of hardware background - 
it won't make much sense. 

There are two processors in there. One looks out toward the PET .. 
I'll call it the IEEE processor; the other looks in toward the disk 
mechanics .. tfiis one I'll call the disk processor. Each processor 
has a comoletely different set of programs. The two processors talk 
to each other by sharing a little memory space: about UK of RAM 
is common to both microprocessors. 

The IFEE processor is relatively easy to look into. You have the 
M-R, or memory read, command which allows you to look at the whole 
6liK memory space of this processor. Not all of this is actually 
fitted with memory, of course. As far as I can tell, ROM occupies 
hex locations EOOO to FFFF. There's RAM in zero page; and the 
RAM which is shared with the disk microprocessor is in hex 1000 to IFFF. 
The 6532 PIA chips seem to be in tkE addresses $0200 to $03FF. 

To analyze a completely tinknown 650X program, you must start by 
inspecting imtietiiD locations $FFFA to SFFFF. This gives you 
the three main vectors, for NMt, Reset, and INT. As far as I can 
tell, NMI isn't used - the vector points at non-existent memory. 
Reset is of course used; in mf 20U0 it points at FU80, and that's 
where the main code for initialization begins. It looks to me 
as if the interrupt line must be kicked by the IEEE ATN (attention) 
line: when I follow the vector (FDDE) in ray machine, it looks like 
an IEEE handshake is taking place. 

That's all vefy well for the IEEE processor, but how can you get 
a look at the inner, disk processor? I had trouble with this one. 
until one day I discovered that the IEEE processor can download the 
disk processor - via the shared RAM - and make it execute this new 
code.' So all that's needed is a little program to tell the disk 
processor to copy part of its memory to the shared RAM space, 
where it can be examined by using the M-R command. 
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I couldn't get this to work, however, until I discovered the vital 
missing link. The shared RAM, which is seen at locations 1000 to IFFF 
by the IEEE processor, is seen in a completely different location 
by the disk processor.' .. in this case, hex OiiOO to 13FF. 
The hardware just "maps" the memory into a different location. 
I might never have spotted this if the memories had not overlapped; 
but a little rummaging around and tearing of hair showed that my 
early programs seemed to be putting data into the wrong buffer. 
Event\ially, the penny dropped, and the system became clear. 

I'm far from being able to give details about the inner secrets of 
the 20iiO. But with the enclosed DISK PEEK program, you too can 
rummage around in there - in either processor's memory space - 
and come up with interesting data. 



10S PRIHT'-nDISK MEMORV DISPLfiV JIM EUTTERFIELD" 

1 1 HHTFi77 .. 45 .. 87 .. 6 .■ 1 S .. 1 6 .. 1 62 .. 6 .. 1 89 

129 DfiTHl57.. 64..06.. 232.. 224.. 16.. 208.. 245.. 76.. 193.. 254 

1 30 FOR.J= 1 T09 ■■ REfiDX : C*=C$+CHR* ( K > : \-iEXTJ 

1 40 FOR.T= 1 TO 1 1 : REflDX ■ r!$=D*+CHR$ (.'A') ■ HEXTJ 

150 PRIHT-'SITHERE ARE TWO PROCESSORS:" 

160 PRINT" 1> THE IEEE PROCESSOR.;" 

170 PRINT" 2> THE DISK PROCESSOR;" 

130 INPUT "WHICH DO VOU WANT TO PEEK a OR 2)".;D 

190 PR I NT "INPUT MEMORV P.DDRESS" 

280 PR I NT " I N HE:--<flDEC I MflL : " : OPEN 1 .. 8 .. 1 5 

210 PRINT" »»ki H" 

220 INPUTZ* 

230 PR I NT " H" ; : I FLEN C Z* > O4THENG0T02 1 

240 F0RJ=1T04:V=hSC'::MID$(Z$.J;'> 

250 IFV<5STHEHV=V-48 

268 I FV>64THENV='t'-55 

270 IFV<0ORV>16GOTO210 

2S0 V •:: J ::> = V : NEXT J : K=0 : PR I NT " »lift»ft»r' ; 

290 ONDGOTO300 .■ 326 ■ GOTO 1 80 

300 U=V<:3>*16+V<4> :V=Va;'*16+V<2> 

3 1 GOSUB360 : G0T02 1 

320 PRINT#1.. C$.;CHR*'::V'::3>*16+V<4>>;CHR$'::V<1>*16+V<2>> ;D$ 

330 PRINTttl.. "M-W";CHR$'::4>;CHR*a6);CHRta::'^CHR*<224> _ 

340 PRINT # 1.. "M-R" .;^HR* < 4 > : CHR* < 1 6 > ; CHRt a > : r.HF:$< 224 > 

345 GET#1.^^$: I F:x:$:=CHRt< 224;- 0010340 

:":50 U=64 ■ V= 1 8 : GOSUE360 : G0T02 1 Q 

360 PRINTttl . "M-R" ; CHRtCU) ; CHR*< V> 

370 GET# 1 . J<* : I Fft$= " " THEN>=:$=CHR* •:: > 

380 PRINT" "; :y=aSCc:K*>/16 

390 F0RJ=lT02:K';=X:X=<:K-X;Oi<tl6: IFX%>9THENX;;=K^;+7 

400 PRINTCHR$(X?;+48>; ^NEXTJ 

4 1 U=U+ 1 : I FU=256THENU=0 " V=V+ 1 

420 K=K+1 : IFK<:8GOTO360 

430 V'::0>=0:V(4>=V'::4>+8:J=4 




44PI IFV':".T>>15THEHV'::j::'=V'::J>-16:.T=J-L : V'::j::'=Vc:J;. + 1 :GGTO440 
450 pPTHTj PR TNI" " ' ■ F Q RJ=1T04 : V=V<: J) ■ IFV>9THENV=V+7 
460 PRINTCHR$(V+4S> .: : NEXTJ ■ PRINT"T : RETURN 

**** THE LflST THREE ITEMS IN LINE 120 ( 76 .. 1 93 .. 254 > MflV BE CHANGED 
IF NECESSARY TO A RESET SEQUENCE OF 168.. 252.. 255 **** 



65535 



61UI40 



Programs : 
Control, 
Input/Output, 
M.L. Monitor 



Ron 



FFFF 



FOOO 



59li71 
59U08 
59391 

U9152 



l/O Lines, Timers 
Interrupt Control 



Programs : 
Basic, 

Keyboard service. 
Screen service 



PIR 



Ron 



E8UF 
E810 
E7FF 

COOO 



33791 

32768 
32767 



16383 
8191 

U095 



Screen character 
memory 



Rfin 



32K Basic memory limit 



16 K Basic memory limit 



8K Basic memory limit 



UK Basic memory limit 



- DoQ-lf* **— 



Rftfl 



a3FF 

8000 

7FFF 



3FFF 



IFFF 



OFFF 



512 

511 

256 
255 



Processor Stack area 

Zero page: 
vork area. 



OlFF 

0100 
OOFF 

0000 



Commodore PET and CBM memory organization. 
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i r 1 1 e r • F o r - ■ n ■=<. 1 1 i n 



deteo+ed nnti-'i 



+t-, 



-forrii3.+-+ 1 ny 



-f^^.^t>n-e o+ the 2822 and 2923 Pfi.nters kut f or-tunate ly .■ Kim 
Lar.tz of Hor+l-i Sydney. Hc^a ScQ-tia... has +ound the +i.-::. 

jt s^^-erned that :?et+iniH un- the -first rormat w-as no 
r.r-r,h b-rr, . but oharK^inii to a second -f-iT-mat m.3_si. When PRIHTm-y 
fr,'i:h^ Knir.ter.. tr-,e last ohar-acten to be sent to a. line is a 
-RLF, "^his is done ron chuious reasons but. the Uarriaye 
v^:.+,,rri i ::; pf irvted on ti-ie o..-,rrent line arid the Line Feed is 
rJ-i.,ted on, the next Une. The L^'-.e P'eed ■^i-.anaoter is ot 
::Oorse not i-^'^'inted on t!-.e f:ar:'S*- but t^.e f:T- inter- "sees-" it 3:e. 
t.;-ie Tii-'St oharacter- o-i-' t-ie nem line arid niiien the kt- i r ,ten is 
.:./.y,,,here but the absolute be-yinnins" o-f a line. it doesr. ' t 
1 ' -: a ohafri* i n;:i ti-ie -t-'or ■iViot . 

Tiiere-i-or e ^ anything that is outi--'U+: to seoofidany address 
I ,j.rr tl-ie f-M-ii-rier should he to 1 loined by... 

« -.1 ii", +- .- .1 .—. ■ , « 

J ;. rrrS', ;...-:...■/ 



F0|- e.-i.-". -.ji- ~\■^ ,. /4^X 

C'RINT #lv "PET";CHR*a3>; 

_ ,r. iri.;.t='oia. 1 ly '.i.'l-'ien the t-onniat stninn is aijout to be chari-^ed. 
Tri i i- i. ;: also true tor S€-ooridary address y. 

Tr-.o aJ::.oi.,>e can ct course be shortened by tirst e'^iuatm-s 
F-t t-o r:HR$<13> arid usin-y R* in h- lace oi" CHR:t 'i 13> . H Iso the 

■•;■: i - :;.t -^lefii i — CO Ion is not necessary i.uhen preceeded by a. closin-Hi 
•;iuC'te or an othef"- strirr? ■..'aj- iai:' le but is necessar-y i.uhen 
to \ Ici.i.i i t'rif nuriier i c '-.'Sr' i ab les. 



HoM.ieoer ., tl-"ie iienera 1 idea, is to keer the rr inter in the 
■ +'"1 ri'is i t i oi-'i a+ter" a oarriaae return i.uhen the +'onri'ia.t. strin-^ 



L s '.-C' ne C'f''t-^T''t 



■yed. 



B i "t s •i'J'"! d F' i 6" c t- s 

The IF., THEN s-fcateriient cari be very use-f u I in aMOidina 
cer' + airi unexpecfcecJ hajsards. Tm.io in K'ar-'fciou laj'"- aj-"-e 1> 

ar ■ HI u m e n "fc o u +■ s i d e r • aj-"i 3 e ar i d 2 > d i '•.•■ i d i n *• by zero. 

The OH.. GOTO s-ta.teriien+ has a. limited r-=u--i»ie on its 
ar iiument.; 1 to 255. Zero causes execution to drop- through to 
the next line but ■■..'a. lues nenat i '.'e or over 255 iMill cause art 
er ror arid a toroed breal:;. Protect in*i a.i<a.inst this is easy 
arid o+ten a. ^lood idea.. 

500 IF K > -1 flND X < 256 THEN ON H' GOTO. . . OGOSUB) 

501 REM -CODE FOR X = 8 

E:.eoutiny a •THEN-' causes PET to interic-ret the code 
+o I louiin-21 as a "neiu line". fi -THEH" oari there tore be 

-f-o I loMjed by any ERSIC statement includinii ariother •' I F . . THEH " . 

Di'-.'idin-3 by zero wi II ta.i I tor obyious riessc>riSm 
Pr-eoeedin-ri a. i':-ossible trouble spot unth a. denominator test 
M.ii'lVf-roteot ai^ainst PniVISION EV ZERO ERROR. 

600 IF ri <:> THEH IF H.-'D O O THEH 
IF N2,''::H/ri> > 1 GOTO SSO 

t^nothier hiidden -30 to ha. that has been k no tun to ca.use b-ald 

spots is the peculi-sr- beha'.'i or ot the FOR. . NEKT Iocik-. Code 

i.M i tPi i n s. FOR,. NEXT loo?:' u.iill alui-ays execute at le-^st once 
reji.3rd less ot the initial loop counter m a lues. 

700 I F J > THEh-1 FOR K = 1 TO . J : . . . •■ HEKT 

. . .i.Mi II iiu-srd ayainst unui.iirited looping. Only one problem.; 

tf-ig, e'.jtire loop niust be- S'Hueezed into one line otheriuise 
GOTOs must be used. 

One turther note.^ a STEP size ot zero '.Mill oa.use endless 
loof-ins. Depend inEi on the extent ot STEP use.- testiri*t of 
S T E P '•. ' Bt'- i Bi'j I e s m i s h t b e ad m i s -Bh I e . 



Bu I let-Proot IHPUT 

fis you know.' INPUT a I lotus the cursor control char- act ers 
to be typed M.'hich c-^ri really tou I up a. pro^ir-sjii especially 
luhen user infallibility is ot import.=irioe. The tollouiinsi 

subroutine could substitute ■f'or- INPUT^ 

50G10 POKE 167 .- 

50 1 R* = " " 

5020 GET E* •■ IF B* = " " THEH 5620 

5030 IF •■: RSC ■:: E* > flND 127 > > 31 THEH 

PRINT E*.; ■ Fl* = fl* + E* 

5040 IF E* = CHR*< 13 ::• THEH POKE 167 .. 1 : RETURH 

5050 GOTO 5020 



!_ 1 ne 



t :-:p l5ria.+ ion 



50£i0 The only dr--. finback usin-y GET over- INPUT inss- tha.+ a 



s i rn u 1 Brb e d c u r-s o r ■ m.i as r ■ e 'HU i r ■ e c j . POKE 167 



ii43 in 



old ROM"' Qon'...'eni en+ ly t-urns tf-ie PET£ cursor on, 
5 £i 1 S e + s fl * < + h a 1 1- 'i !■:■ 1..4 -t s + i-' i n -y > to f-i u 1 1 5 ■I'. r i r 1 y ■ 
5020 Standar-d "GET loop". 
5030 Ti-iis +.es"t masks out all 0+ the oufsor control keys.. 

a I lo'A'i MrJ only numeric ■ a. b-'ha arid yra-f^'hics to PRINT. 
5040 Test tor 'RETURN' key. yes... turn cursor- ot f ■ exit. 

Extr'a. tests could cje inserted beti.Meen 5030 a^id 5040 to 

ir'i elude c-irsor left, r i Eth c ?nd,-'or da lete. H Iso.. a crier act er~- 

i::ouriter mishit be i i iCLjrf-'Orated t'l' lirnit "t^rie ir'if:'ut striny 
lenytl-i. 



1 ci at i r"i -J B i n Br- y 



T'he -to I lot.!.i i rp'3 moyrarn by Jirip Butter-tie Id shcMS thie 



!--Ut 



v'alue ot a deci'Tial tloatinii noint number as: stored b-rj PET in 
tloatini' binary. The nr-o-H.irajri 1 llustrates Piom.; some decimal 
V a. 1 1..-! t" 'S cannot be renresented in binary e.::.act iy. Try '■.•b. lues 
ot 1.1. 1 . 2 arid 1.7. 



100 PRINT ■ INPUT V 
110 PRINT INTc'V::.;". "; 
120 V = <V ~ I NT ':',•')'■ * 10 
130 PRINT CHR*'::V + 45':'; 
1 40 GOTO 1 2Gi 



IF V=0 GOTO 100 



~he to 1 1 o M.' 1 ri ■y r-eter'enoe tab' le shcMS the screen rrieri'iory 

POKE looatior'is. Ncte thie star-t ai-id end locations arid that 

the most si-yniti-iiant di-yit 'k3> he^: been df-'Of^r^^-ed throu-yhout 

the tab'le. Rer-'rinted trom the (_-ommodore ■Jaj'-'ai"! Newsletter, 
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I ^_l 



:7y NE'-'T ■ 

1. 80 Ef iD 

5o i.Ml-'r=< tl-'it" e K'tr B. 1 1 i-'ie -i^eads? J-ET en 3.iri tains: a. ' 

lAT'SK' " table 1 r'l RfiM i.Mhicr'i detar'minaa i.ii^'iether t:he 1;. rie : 

airriiila or' a. doub I^H" lir'ii;? or (Vior'a K-f aci ^e ia ' C"-,'ar" or ..■ir'icl-i'r 
Ci-'iar'aott'rs . This is dont -for- thir';aa >. i i-:.e IMF'IJ! anci -ror'- 

e i- 'I t a r" i f ! a or a 1 "t a r i ■ '1 a B h c; 1 l- . 

"Or"' ur^af ajd"? Ruria tha i.!r-a.?-- tiipjla ia kaK't ir'i i^-'rif'l tfofri SuEy 
to 00F3 ■■' daoiiTia. I 2a4 — 2-*8 8223 +0 6241 < deo 533 — 57"? '? 

+of old POMSn 



40 



2'0 hou.i do u.'a a i. ijV'i nata ti^^aaa ciaj^tard ia Lina i"a€'da :■' Vou 

could K' la.a M.i 1 tj-',' "ci-iraor'- uh-'S ' K>ut 1+ scrria l.i"'i6'a Br'is douFj la a.cd 

o "t h a f '• s a 1 !'"i a 1 a t i'"' i s o at"; fc- a a :^ ''i 1 a ^ ■ ■ Pi ^ t o •.■( rri b a r^ a ci f 1 1 €- e- 3: c;' a c: 1 a. 1 l a 1 f 

vHOur PRINT atrir-ias er«:i B.t cc lur^^n 48, The a. Iternat i'.>e is to 
alter the m-'-or r!,ati or, ne Id ir; t^'ie li. ria i.^raj-:;' tahle. 



"The table ccrFS^i.-irraa ^.c h .'.■it:ai-: C"'' r^iiiM. oria fcjate tcif' aa.c:h 
1 i r.'t' on tKie aoraari, Triaaa t^iatas I'l i i ccrita iri the lirit'S l"'iiar"! 
Order- iTiemora 'x'fi-:h'€-xs , Ha aou Lr'/our. soreen rjiao'ior a starts at 
ha;< 3000 a/'id ooritinuaa t'D ha?-: ^--l-RE ■'■. see friefnora rnSiX' ) . The 

Koma r-osi t ioi-'! ot ir^'^e aor'eari i^ the rat or a ai: hex 3000. Sinoe 

the address 0+' a. IL-'^e la t-^ii-an -i-^'on; ^he baaiMriiria o-t that 
lir'ie. trie address o-f- 'f-'ie +oK' li:'ia nii 11 be i'3000 < $ = hex >. 
T'-'it' i-'iiah or'ci!--'!^" addres-3 :, s siivsr-'la -t:0 a/'sd tr'^s deoirria. 1 
a'"iui'-'a. lerrt' o-" $''-0 is 122;, The PEEK ot i:he -'-irs:t location o-t 
tPia u.ii'" a?" ■t:3ble MJill retu^"''i a 123 uif-'ich is o--''' course deoirria. 1. 



■ he "•"O 1 loair'ri'' r't' lates 10 raj"-' tattle deo3iYia i va. luei- '■. F'EtK 
.'■3. lues ' to the ''.a:-; -a.'iJdres's C"i" th^e "irs^t cr'isij'a.cter- sf-'aca 0"f 
each screer"! liria. Pariierfihar .■ en la tf'.e niah ordar- pat't ot the 
address is ct .aria corioei"' n to thfj t:ot' -bit- ts".bla. Rise, trie table 
'' as^ i. das; i ^'t c-ii t"*^"er''t='^'it lc-^".a't. ior'.:s "t'O.*"" ';.*.*- Ic-1 -s.;'"(d ^"i^^u) Ruhts so tc'r- 



O l.M i.i.i e ■' 1 
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i thrcJifh 
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1 23 



Hev:< addf'. o+- 
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tsij It-? FE.EK "/a li.-ies lus-r-e- rei-^reseri'ted in 

binary, t'ne ei tthth bi+ mjou Id fcie set tc 1 in each case ■ 

' 23 = 1 9 C" Si S" 0* 
I 3 1 " 1 Gi 1 1 



Ti--iia mearr:;: ■t-i--ia.-t the cor'-'espcndiny line is sin-H.-ile or h. 
"t I' 'i St 'I 4 c !■ '! aj ■ a.C: T a r'' s of' i + .. 






wncrn char ao+ers ow^-r-'W^.-irvif +0 +he joreen wrap arourid "the 
!■'■ i, srrt side.. PiET cons ids' rs these characters s.s K'ar-t 0+ the 
;9bo-.'e line. Take.. +or e- an'ip le.. t,he tor ti.MO lines <. lines 1 .ft 
" '■■■ ^ The screen is cleared .Eiri.d a stri.>-]3 01- 52 ch-ar.a.cters ar-e 
FRIHTed ti-'crfi tl-'ie home rositi on.- r..a.st column 4£i -srid onto line 
2, L. J ■'le 2 is no H.I considered rart 01- a. double line but rri ore 
i !V:ro!-' t.^rit ly .. line 1 is considered -S- siri-?le line o-f double 
le-natri. The i.urar' tsble records tP.is ba settin-s the eighth 
o i t o-i- the ■■.-'a lue cjrresf^ondins to line 2 to zero. The toe:' 

+:i.MO lines Bs"€f now tre..ated t-y FET -bs a sini-ile line hence the 
a :.t>- a I ; .ne +'eeds. This is rriost notioe-Bb le when usin-s the 
-"creo'i €-ditor ori ?-"•"■ O'sr a.' ii lines C" len-sth i-tr- eater th-ari 4y, 



je u.if ar-' t.?b le 



Lues tor 



t:hre e-.. aiiiK' le pro-E-'r.3jii i.mou Id be • 
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•-e:ek 



Ci Id ROM 



1 4 ..:; r _ii^- ..J 



PEEK 



^•■ihMT 



■'"ht^- ''Ohi:" +unc-t.i on :i. r-, I;, ne 14b is used tc 



^:H't the 6- 1 3lrtl--i 
LJQh that PET 



R fe-i.u entry P-oin-ts.. orisinal/uK-iirade ROM Jim Butter-field 

Entry points seen in various i-:'ro-3r3Jiiriier"s niachine lan-Eiua^ie 
n-rosrajiis. The user is cautioned to check out the various 
routines carefully tor prof-.-er setuP' before ca.llin-=i.. reiuster 
used.' etc. 

ORIG UPGR IiESCRIPTIQN 



C357 C355 ?OUT OF MEMORV 

C359 C357 Send Basic error niessa-ae 

::3SB C3S9 Warrii start.. Basic 

;:3flC C3flE Crunch & insert line 
C:430 C439 Fix chain in-3 $< RERDV. 
C433 C442 Fix ch.aininii 

;48B C4'35 Crunch tokens 
r:522 C52C Find line in Basic 
C553 C55D Do NEW 
C56fl C.572 Do CLR 

;:.53fl C5fl7 Reset Basic to start 
C6B5 C6C4 Continue Basic execution 

::63 C873 Get fixed-Point nurnber from Basic. 
C9CE C9DE Send Return^ LF if in screen mode 
C9D2 C9E2 Send Return.. Linefeed 

;:R27 CfllC Print strin-3 

::fl2D Cfl22 Print precom^-uted strin-s 
Cfl49 Ch45 Print ch-sracter 
CEll CDF8 Check for comm-a 

:E13 CDFfl Check for SK-ecific character 
CEIC CE03 '"SyNTRM ERROR-' 
D079 D069 BufiiP '/.Briahle Rddress by 2 
D0fl7 D09fl Float to Fixed conversion 
D27.S D26D Fixed to Float conversion 
D679 D67B Get byte to X res 
D68D D68F Ev-aluate Strin-s 
D6C4 D6C6 Get two K'-sr-ajneters 
D73C D773 Add (from memory > 
D8FD D934 MultiK-ly by memory location 
D9B4 D9EE Multi^-ly by ten 

Dfl74 DRRE Unpack memory v-sri-Bhle to flccum #1 
DBIB DE.55 Completion of Fixed to Float conversion 
DC9F DCD9 Print fixed-Point value 
DCfl9 DCE3 Print f loatinn-point value 
DCRF DCE9 Convert number to ASCII strin-s 
E3Efl E3D8 Print -a character 

na E775 Output byte as 2 hex d is its 

na E7fl7 Input 2 hex di-=iits to R 

n-a E7B6 Input 1 hex disit to R 
F0B6 F0B6 Send --talk-- to IEEE 
F0Bfi FOBfl Send •■ listen" to IEEE 
F12C F128 Send Second-sry Rddress 
E7DE F156 Send canned mess-s.-se 
F1S7 F16F Send ch-sr-acter to IEEE 
Fi7fl F17F Send -"untalk'' 
F17E F1S3 Send •- un listen ■- 
F187 F18C Input from IEEE 
F2C8 F2R9 Close lonical file 
F2CD F2AE Close lo-sical file in fl 



F32fi 
F33F 

F3DB 
F3E5 
F3FF 
F411 
F43F 
F462 
F495 
F504 
F52fl 
F52D 
F579 
F57B 
F5flE 
F64D 
F667 
F67D 
F6E6 
F78B 
F7DC 
F33B 
F87F 
F8Sfl 
F8E9 
F8C1 
F913 
FBDC 
FDIB 
FFC6 
FFC9 
FFCC 
FFCF 
FFD2 
FFE4 



F301 

F315 

F322 

F3E6 

F3EF 

F40fl 

F41D 

F447 

F466 

F494 

F4FD 

F521 

F524 

F56E 

F570 

F5fl6 

F63C 

F656 

F66C 

F6F0 

F770 

F7BC 

F812 

F855 

F85E 

F886 

F88E 

F8E6 

FE76 

FC9B 

FFC6 

FFC9 

FFCC 

FFCF 

FFD2 

FFE4 



to start 



Check -for- Stop key 

Send riiess3.iie i-f Direct riiode 

LOflB subroutine 

?LOflD ERROR 

Print REflDV & reset Basic 

Print SERRCHIHG. .. 

Print -f i le nariie 

Get LOflD/SfiVE type parameters 

Open IEEE charmel for output. 

spec i -fie tape header block 

string 

losical file from input pai^-ajiieters 

logical f i le 
?FILE NOT FOUND, clear- I/O 
Send error message 
Find ariy ta^^e header block 
Get pointers for tape LORD 
Set tape buffer star-t address 
Set cassette buffer pointers 
Close IEEE charinel 

Set input deM ice from loaical f i le number 
Set output device from LFN. 



Find 
Get 
Open 
Open 



PRESS PLflV. 



to 



wait 
buffer 



Read tape 
Read tape 

Write tape from buffer 
Write tape, leader length in fl 
Wait for I/O complete or Stop key 
Reset tape I/O pointer 
Set interrupt vector 
Set input device 
Set output device 
Restore default I/O devices 
Input character- 
Output character 
Get charaucter 



"i>.. 



Infinitely Lon-s PET Pro-srajiis 

Henry Troup.- Diemas'ter Tool 

Even M.iith a 32K PET.. it is desir-at:' le to have a means of 
haridlin-3 K-roiira/ris in sections., to be lo-aded as necessary. The 
PET iriiP lementation of the load coffimarid trorn a. prosr.Eiji'i does not 
f-ese-k- any pointers.- so that •..•'•Briables ar-e p-reser-Med. HoiueMer.- 
any new prosraxii must be the saine len-=ith or- shorter than t:he 
first of the series. 

In order to make certain deta.i Is such .as fi len.sjues -^nd the disk 
Gomm-snds tr.9nsp.9r-ent to the end user., it may be desired to ha.Me 
a small front end or menu prosr-am lo.ad other,, lonaer +:'rosirajiis. 
Ho M-Br i -sb les need be P-assed between the proiirajfis .• so a simple 
LOhH "nextpro-=ir.3J!-i".. 8 suffices. 

HoM.ieMer.. since the K-'Bri-Bble pointers -sire not reset.- they will 
be pointinii into the pro-3r.=>jii. fls soon .5S -Bny M-ari-Bbles .sre ' 
used., the pro-3ra/i'i is disturbed., -sind a m-achine cr.ash m-ay result. 
Cert-ainly.. this ti.'i 1 1 cause a non-recoMer-sb le error. This m.ay 
be .^.Moided by includirr=i the fo I loniin-s line ss the first ot the 
prosr-sjii ■ 

P0KE42 .- PEEK < 26 1 > ^ PuKE43 .- PEEK ( 292 > ■ CLR 

This resets the bottom of text pointer .=ind then the CLR resets 
.all the other pointers. The pro=ir.9Jii mill now run. 

If this is the first line in -a. pro-Eir.aJfi.- and you modity the 
pro-=<r.aJii.- DO NOT use the RUN command with no para/iieters. St-ar-t 
runinsi the pro-ar-siii from beloM.i this line.- or the pointers aiill 
be reset to the pre'-.-' ious end of the pro-sr-BJiY. In •=iener.a.l.. you 
I.MOU Id lose the sajiie number of bytes bs wer-e .added. 

But M.ih.at .about doinsi a. link of two pro=.ir.3JiiS -and passin-a d-ata 
between them'.-' 

This is re lati'v'e ly simple. fl scr.atch file can be created -and 
filled with the Mar i .iib' les to be p-sssed. These '■.•■•ari.ables are 
then re.ad by the second prcsr .sjfi . 

HoM.ieMer.. bec-ause ot the disk's handlin=.i ot se^tuent i a I tiles., it 
is .ad'v'isab le to -serier-ate your own carr i a.-se returns betiMeen data 
items. Usin=i the format 

PRINT#3.. fl.; CHR*< 13> ; B; CHR*<: 13> ; D$.: CHRta3> ; 

will .aMoid any comPlic.at.ions due to unw-snted line feed 
c h Si'' ac t e r s . 



It iiinuld bf=- .=> ^lOiDd idea to ha.Me -the first pro nr- ?m check ^tor a 
pr*='-p-:-:istin-3 tile arid either delete it., or marr, the u-er to 
,-:h.=.ri-=<'=- disks. Obyious ly.. a different f i leni'Jiie cannot he used.. 
unless user interMention is provided.. LMhich in aeneral would 
s lou' the systerii down. 

jhe pvistence of a. preM ious file cBn be checked most essi ly by 
ntz.f>rdtr-i the f i'lenanie.. either for read or write., arid clieckmii 
th^ errnr channel. It a read produces "FILE NOT FOUND" or a 
nir-iti=> •-Mr:r:P.Pds then the f i len-s/ne h.3S not been used. Utherwi-e.. 
some action should be taken. Scr-atch files should aliO be 
de leted luhen they Bf-e of no further use . 

This also allows lon-3 f:'ro-£ir.3Jiis of the nuniber-crunchin-if M-sriety 
to be interrupted and restarted. One could write loro^rams with 
.a'-v-ery lon-rn run time so th.at they can "30 to sleep" either by 
keyboard comm-and or .after a set time. 

The machine will hana up if the next prosir.sjn to be loaded 

is not found. 



Programming 



PET DOS SUPPOR T PROGR AM By R. J. Fairbairn 

Now that the COMMODORE 2040 Floppy Disk System is reaching 
PET owners more support programs are needed. The PET DOS 
SUPPORT Program is an aid to the 2040 User which humanizes 
the PET to 2040 interface better than direct mode BASIC 
statements. 

This program consists of two routines; a BASIC driver routine 
and a machine language routine. The BASIC program calls the 
machine language which moves the working portion of itself 
up into high memory. The subroutine then links itself into 
the CHRGET subroutine in page zero and before returning moves 
the top of memory pointer down so BASIC will not destroy the 
working portion. The BASIC program then clears the PET 
screen and displays an abbreviated set of instructions before 
executing a NEW command. 

Figure A and Figure B are the BASIC and ASSEMBLY Listings of 
the DOS SUPPORT Program. The programs are entered into the 
PET as follows. First reset the PET so the memory is initial^ 
ized, this makes entry of machine code simpler. After the 
PET has been reset type in the BASIC program exactly as 
listed in figure A. Then using the machine language monitor 
enter the object code for the machine language subroutine at 
$0700 hex. After entry save both routines from the monitor 
(SA = $0400, EA = $08B8) . Finally, using the instructions 
included in this article test the program to insure correct 
operation. Good luck and happy computing. 



WARNING: It is advisable to use diskettes that are new or 
that contain no valuable data during the test phase. This 
will avoid loss of important data and your time. 

The purpose of this program is to aid the CBM or PET 2001 
User in operating the 2040 Dual Floppy Disk System. This 
instruction sheet has been written with the assumption that 
the reader has a working knowledge of the 2001 series and 
the 2040. 



NOTE: This program has been placed in the public domain 
but if you would like us. to produce a copy for you, send 
us a blank disk and we'll duplicate the DOS SUPPORT Program 
on it at no charge. Though, we do ask that you include a 
self-addressed , stamped envelope. If you have any comments 
or suggestions on the following, please refer them to the 
editor. 



The normal method with which the PET communicates with an 
IEEE Buss device is by the BASIC commands OPEN, PRINT, GET, 
INPUT and CLOSE. These statements are somewhat verbose in 
nature and therefore more prone to operator error. There 
is also the limitation that INPUT and GET cannot be used in 
direct mode due to shared buffer areas. These conditions 
are easily handled with the DOS SUPPORT PROGRAM. 

DOS SUPPORT PROGRAM may be loaded (saved) as if it were 
a normal BASIC program. Note should be made of the fact 
that the 2040 has a special load file name '*' which if 
used immediatly after power up (reset) executes the following; 

1. Initalizes Drive 

2. Loads the first file on that drive 

Thus if the command LOAD"*", 8 is executed and the DOS 
SUPPORT Program is the first directory entry it will be 
loaded. When the DOS SUPPORT Program is executed it re- 
locates itself up into the highest available RAM memory 
locations, links into the CHRGET routine and adjusts BASIC'S 
top of memory pointer down. This technique uses about 350 
bytes of the Users memory but normal machine operations may 
proceed without having to reload the DOS SUPPORT Program 
until such time that a system reset is performed. 

The DOS SUPPORT Program functions by capturing the data that 
the PET operating system passes to BASIC, before the inter- 
preter has a chance to parse it. Thus we can look for Key 
(escape) characters and process the disk command which 
follows without the use or knowledge of the BASIC interpreter. 

There are four key characters that are recognized by the 
DOS SUPPORT Program. They will be processed only when they 
are found in column one of an input line, otherwise a SYNTAX 
ERROR will occur. 



DOS SUPPORT KEY CHARACTERS 

@ or > - Passes commands to the Disk. 

/ - LOAD ' s a program . 

+ - load's and RUN's a program. 

The greater than symbol when used preceeding a 2040 Disk 
command passes that command directly to the Floppy Disk 
System. See the following examples. 

Thus: 

>10 

is the same as : 

PRINT#15,"Ii3" 

and: 

>SJ2I:FILE1 

is equal to: 

PRINT# 15 , "S0 : FILEl " 

As you can see the > symbol is a substitute for the PRINT! 15 
statement. Remember that an OPEN statement is required 
before a PRINT may be executed but no OPEN is required for 
the DOS SUPPORT Program. 

The second function of the > command is the directory list 
command. As you know the directory of a minidisk can be 
loaded with a LOAD"$/Z(" , 8. This LOAD will destroy any pro- 
gram you might have in memory. To avoid the destruction 
of the current program the DOS SUPPORT program prints the 
directory on the screen. 

To avoid possible directory scrolling, you may depress the 
SPACE key to stop the listing of a directory. Depress any 
key to continue the listing - or you may depress the RUN/ 
STOP key to stop the directory listing and return to BASIC. 

>$0 

Means - Display the entire directory of Drive 

>$1:Q* 

Means - Display the directory entries of all files on Drive 1 
that have names starting with the letter Q. 

The third function of the > command is the error channel in- 
terrogation feature. The error channel is read by typing a > 
followed immediately by a RETURN. This is equivilent to the 
following program segment. 

10 OPEN 15,8,15 

20 INPUT#15,ER,MSG$,DRV,SEC 

30 PER" ,MSG$" , "DRV" , "SEC 



For Users that have the CBM Model Business Keyboard the 
"@" key may be used in place of the > for key entry cqn- 
vience. This eliminates shifting for this command. 

The LOAD / and LOAD-RUN + command characters operate the 
same as their BASIC counterparts only with a simplified 
syntax as follows: /WUMPUS 

- This conitiand will load the program file WUMPUS. Both drives 
will be searched if required. 

il'.COPY DISK FILES 

-This coninand will load the program CDPY DISK FILES from Drive 
1 (if it is there) and execute it. 

Ttie follcwing requirements and limitations are placed on the DOS 
SUPPORT Program User. 

1. The DOS SUPPORT comtands may only be lased in the direct mode. 

2. The camiands must start in Column 1. 

The user may print the directory by using the following conmands: 

OPEN 4,4: CM)4 : Opens device 4 and cJianges the priitBry 

output device to 4 



> 



$0 : Print the directory 



PRINT#4 : CLOSE 4 : Return the default output device to 

the screen and close the file 



5 SVS2222 

10 PRIHT":i"TflB<ll>" ." 

20 PRIHTT(=lB<ll>"a PET DOS SUPPORT " 

30 PRINTT(=lE<14>"H0W LOflDED 

40 PRIHTTFlEO:?" COMMflNDS FOLLOWING" 

50 PRINTTfiB<7>"fl > OR 8 IN COLUMN 1 WILL" 

60 PRINTTfiB'::9>"BE PRSSEH TO THE DISK.W" 

90 PR I NTTftE ■:; 7 > " CMD DESCR I PT I ON " 

140 PRINTTRB'::?>"* DI RECTOR V BOTH DRIVES 

150 PRINTTftB<?>"*0 D I RECTOR V DRIVE O 

160 PRIHTTRB(:?::."*1 D I RECTOR V DRIVE IW" 

180 PRINTTRE':;?>" ALL 2840 COMMRNDS MRV BE 

1L=»0 PRINTTRB';7> "ENTERED RS IF THEV WERE IN 

200 PRINTTRB';:7>"R PRIHT# STRTEMENT. 

220 PR I NTTRE •:: 1 1 :■ " ;«a£;PEC I RL COMMRNDS 

230 PRINTTRB';:7::'":!!l-' LORD R PROGRRM 

240 PRINTTflB'::7>"t RUN R PROGRRM 

250 PRINT" SPECIRL COMMANDS STRRT IN COL 1 RND 

260 PRINT"RRE FOLLOWED EV R 204Pt FILENAME. 

270 NEW 



PETDO- 


54.0. 


LINE# 


LOC CODE 


0001 


0000 


0002 


0000 


0003 


0000 


0004 


0000 


0005 


0000 


0006 


0000 


0007 


0000 


0008 


0000 


0009 


0000 


0010 


0000 


001 1 


0000 


0012 


0000 


0013 


0000 


00 1 4 


0000 


0015 


0000 


00 1 6 


0000 


00 1 7 


0000 


00 1 S 


0000 


00 1 9 


0000 


0020 


0000 


0021 


0000 


0022 


0000 


0023 


0000 


0024 


0000 


0025 


000VZl 


0026 


0000 


0027 


0000 


0023 


0000 


0029 


0000 


0031 


0000 


0032 


0000 


0033 


0000 


0034 


0000 


0035 


0000 


0036 


0000 


0037 


0000 


0038 


0000 


0039 


0000 


0040 


0000 


0041 


0000 


0042 


0000 


0043 


0000 


0044 


0000 


0045 


0000 


0046 


0000 


0047 


0000 


0043 


0000 


0049 


£1000 


0050 


0000 


0051 


0000 



Llt^E 



I*. 

;* PET DOS SUPPORT 
.* 

; ♦ 04-27-79 
;* 

:* EOB FRIREflIRN 
♦ 

;* VERSION 3.1 6/14/79 

* Flliri n PROMPT FOR BUSINESS 

* KEVEORRD. Rlili STOP KEV CHECK 
;* IH n I RECTOR V PRINT. Rnii 

. * HRLT IN DIRECTORV PRINT 

;* 

. * VERSION 3.2 7/2/79 

* FOR •::-04::' ROM 

:* WITH LORD RDDRESS ONE OFF 

;♦ EVTE LOW. 

;* 

.* VERSION 3.3 7/2/79 

:* RDD STRCK LOOKUP FOR 

.* RCTIVRTION. 

. * 

;* VERSION 4.0 7/5/79 

;* RDD CONTROL FOR CMD DURING 

* R DIRECTORV LISTING. 
;* 



.;BRSIC 


VRRIRBI 


VERCK 


=*9D 


SRL 


=*C7 


SRH 


=*CS 


WSW 


=*B3 


CNTDN 


=*BR 


GRETOP 


=*5C 


riEMSIZ 


=*34 


TKTPTR 


=*77 


SPERR 


= *10 


EUF 


=*0200 


SRTUS 


=*96 


SR 


=*D3 


FR 


=*D4 


Lfl 


=*D2 


FNLEN 


=*D1 


FNRDR 


=*DR 


EflL 


=.*C9 


EflH 


=*CR 



VERIFY FLRG 
INDIRECT POINTER LO 
HI 

UNUSED FLRG <BRSIC> 
SRVE RRER 
INDIRECT POINTER 
POINTER TO TOP MEM 
POINTER TO EUF 
EOI ERROR BIT 
ERSIC INPUT BUFFER 
STRTUS BVTE 
SECONDRRV RDDRESS 
PRINRRV RDDRESS 
LOGICRL DEVICE # 
FILE NRME LENGTH 
FILE NRME RDDRESS 
END RDDR LO 
HI 



0052 


0000 




0053 


OGiUU 




0054 


0000 




0055 


000£1 




0056 


Gi00Gi 




0057 


000G1 




005S 


wOGuZi 




0059 


0000 




Gi06Gt 


0000 




3061 


0000 




0063 


0000 




0064 


0000 




0065 


0000 




0066 


0000 




0067 


0000 




0068 


0000 




0069 


0000 




0070 


0000 




0071 


0000 




0072 


000G1 




0073 


0000 




0074 


0000 




0075 


0000 




0076 


0GI00 




0077 


0000 




0073 


0000 




0079 


0000 




£i08£i 


0000 




0081 


0000 




0082 


G10£10 




0083 


0000 




0034 


0000 




0085 


00OG1 




0036 


0000 




0087 


0000 




0083 


£'000 




0089 


0000 




£iGi9£i 


0000 




0091 


0000 




0092 


0000 




0093 


000G1 




0094 


0000 




0096 


0000 




0097 


0000 




0098 


0000 




0099 


0000 




0100 


0000 




0101 


0700 




0102 


0700 


Efl 


0103 


0701 


E6 77 


0104 


0703 


110 02 


1 05 


0705 


E6 73 


0106 


0707 


36 E3 



DFL i U =tE0 
VhRThB ==*2h 
TMP2 =$FB 

:■ PROGRflN VflR I RELES 

CR ~$iJB 

FLhG ~WSW 
PTFlK =*E812 

cririLH =CMriEHri-CMri 



.;PET ROUTINES USED 



LINPRT 


=*IiC:ri9 


SPMSG 


=*F315 


LDIS 


=*F322 


TWRIT 


=*F8E6 


CHRGET 


=*70 


CHRGOT 


=*76 


HEWSTT 


=$C:6C4 


PRT 


=*E3ri8 


LISTH 


=*F0ER 


SECHD 


=*F123 


CI OUT 


=itF16F 


UHLSN 


=*F183 


flCPTR 


=*F13C 


TRLK 


=*F0E6 


OPEN I 


=*F466 


FCLOSE 


=*F2flE 


REflDV 


=-*C3S9 


RUNG 


=*C572 


LHKPRG 


=*C442 


UHTLK 


=*F17F 


3TXTPT 


=*C5fi7 


CHKIN 


=*F770 


CHKOUT 


=*F7EC 


CLRCHH 


=*FFCC 


BRSIN 


=*FFCF 


STOP 1 


=*F301 


BSOUT 


=*FFri2 


FOPEN 


=*F524 


LD209 


=*F3E6 



DEFRIJLT OUTPUT DEV. 
END OF EHSIC PGM. 
TEMP VftRIRBLE 



SVMEOLIC CRRRIPH5E RETURN 
BYTE USED flS R FLRG 
KEVBORRD I,Ti PORT 
LENGTH OF RELCORTE 



; PR I NT LINE # 

•SEHn R MESSRGE 

.;LORLi ROUTINE 

iWRIT FOR STOP KEV 

; INPUTS CHRRRCTERS 

;GET LRST CHRR 

;NEW STRTEMENT EKEC 

; PR I NT R CHRRRCTER 

:SEND LISTEN 

;SEND SR 

; SEND CHRRRCTER 

•UN LISTEN 

;GET R CHRRCRTER 

•SEND TALK 

;OPEN FILE 

.; CLOSE FILE 

; REENTER ERSIC 

iCLERR VRRIRELES 

■LINK BR3IC LINES 

.UN TRLK 

;SET STRRT TEKT POINTER 



■' CHECK 
; CHECK 
: CLERR 
iBRSIC 
: CHECK 
: ERS I C 
FILE 
LORD 



IN 

OUT 

CHRNNEL 

IN 

FOR STOP 

OUT 
OPEN 
ERROR 



KEV 



.P4EDGE IN ROUTINE WITH THE 
;COMMRND PRRSER RND EXECUTITION 



*=*0700 



CMD 



NOP 
INC TKTPTR 
BHE WG100 
INC TXTPTR+1 
WG100 STX WSW 



.; THROWN RWRV 
.;BUMP POINTER 



iSRVE X IN WSW 



0107 


0709 


BR 








TSK 




;GET STRCK PU INTER 


1 08 


070R 


BD 


01 1 


01 




LDR 


^0101.. X 




0109 


070II 


C9 


9E 






CMP 


#*9B 


iWERE WE CRLLED EV MRIH 


0110 


070F 


D0 


3fl 






BHE 


HOf-inlH 


.;N0. . . 


0111 


0711 


En 


02 1 


01 




LDR 


*0102.. X 


.; MRVBE? 


0112 


0714 


C9 


C3 






CMP 


#*C3 




0113 


0716 


D0 


33 






BHE 


HOMfllH 


.;HOT THERE. .. 


0114 


0718 


R5 


77 






LDR 


TXTPTR 


; FIRST COLUMH 


0115 


071fl 


D0 


2C 






BHE 


WG997 


.;GET OUT HOT FIRST CHR 


0116 


07 IC 


fl5 


78 






LDR 


TXTPTR+1 




0117 


07 IE 


C9 


02 






CMP 


#>BUF 


. IH BUFFER? 


0113 


0720 


D0 


26 






BHE 


WG997 




0119 


0722 








,; 








1 20 


0722 


R0 


00 




WG110 


LBV 


*0 


.; .V IS BUF IHDEX 


0121 


0724 


34 


B3 






3TV 


FLRG 


.;FLflG SET FOR DIR 


0122 


0726 


Bl 


77 






LDR 


<TKTPTR>..V 




0123 


0728 


C9 


3E 






CMP 


#'> 


;COMMRHD PROMPT? 


1 24 


072R 


F0 


11 






BEQ 


WG115 


.;VES. .. 


0125 


072C 


C9 


40 






CMP 


#"@ 


..BUS I HESS KEVBORRD PRGilPT 


0126 


072E 


F0 


0D 






BEQ 


WG115 


.;VES... 


0127 


0730 


C8 








INV 






0128 


0731 


85 


E3 






STR 


FLAG 


.;SET FLRG FOR LORD 


0129 


0733 


09 


2F 






CMP 


#'/ 


.:LORD PROMPT 


0130 


0735 


F0 


63 






BEQ 


DODIR 




0131 


0737 


C9 


5E 






CMP 


#94 


.; CHECK FOR ARROW 


0132 


0739 


F0 


5F 






BEQ 


DODIR 




0133 


073E 


110 


0B 






BHE 


WG997 




0134 


07311 


C8 






WG115 


IHV 






0135 


073E 


Bl 


77 






LDR 


< TXTPTR >,V 




0136 


0740 


F0 


32 






BEQ 


RDERR 


.;REflD ERROR CHRHNEL 


0137 


0742 


C9 


24 






CMP 


#'* 


;DIRECTORV? 


0138 


0744 


F0 


54 






BEQ 


DODIR 


.;VES 


0139 


0746 


110 


08 






BHE 


HOTDIR 




0140 


0748 


4C 


76 


00 


WG997 


IMP 


CHRGOT 




0141 


074B 


fl6 


B3 




HOriRIN 


LDX 


NSW 


.; RESTORE .X RHD 


0142 


074D 


4C 


76 


00 




J MP 


CHRGOT 


.: RETURN TO CHRGOT 


0144 


0750 








; 








0145 


0750 








; SENI 


1 COMMRND TO DISK 




0146 


0750 








; 








0147 


0750 


R9 


08 




HOTDIF 


: LDR 


#8 


.;GET DEVICE RDDRESS 


0148 


0752 


85 


ri4 






STR 


FR 




0149 


0754 


R9 


6F 






LDR 


#*6F 


.:SECOHDRRV RDDRESS 15 


0150 


0756 


85 


113 






STR 


SR 




0151 


0758 


20 


BR 


F0 




JSR 


LISTN 




0152 


075B 


flS 


D3 






LDR 


SR 




0153 


075D 


20 


28 


Fl 




JSR 


SECHD 


;SEND SECOHDRRV RDDR 


0154 


0760 


E6 


77 




BUMP 


IHC 


TKTPTR 




0155 


0762 


fl0 


00 






LDV 


#0 


; IHDEX=e 


0156 


0764 


Bl 


77 






LDR 


< TXTPTR >, V 


.;GET THE FIRST CHRRRCTER 


0157 


0766 


F0 


06 






BEQ 


WG120 


.;ZERO IS LAST CHRR 


0158 


0768 


20 


6F 


Fl 




JSR 


CI OUT 


•SEHD THE CHRP 


0159 


076B 


B8 








CLV 






0160 


0760 


50 


F2 






BVC 


BUMP 


.; MORE 


0161 


076E 








,; 








0162 


076E 


20 


83 


Fl 


WG120 


JSR 


UHLSH 


.;UH LISTEH 



0163 
0164 
0165 

1 66 

1 67 
1 6S 
0169 

0170 

0171 
0172 
0173 
0174 
0175 
0176 
0177 
0173 
0179 

01S0 

0181 
0182 
0183 

0185 
0186 
0187 
0188 
0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196- 

0197 

0198 

0199 

0200 
0201 

0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 

0210 

0211 
0212 
0213 



0771 

0772 

0774 

0774 

0774 

0774 

0776 

0778 

077fl 

077II 

077F 

0781 

0784 

0787 

0789 

078B 

078E 

078F 

0791 

0794 

0797 

079fi 
079fl 
0790 
079fl 
079E 
07911 
079F 

07fl0 

07fl2 
0704 
0706 
0708 
0700 
07OC: 
07OE 
07E0 
07B2 
07E4 
07B6 
07E8 
07BO 
07EC 
07EE 
07C0 
07C2 
07C5 
07C8 
07CO 
07CC 



B8 

50 23 



34 77 
09 08 
85 ri4 
20 E6 F0 
09 6F 
85 ri3 
20 28 
20 3C 
C9 011 
F0 06 

20 ns E3 

B8 

50 F3 
20 DS E3 
20 7F Fl 
76 00 



4C. 



85 
09 



08 

El 77 
ri0 FE 
88 

84 III 
09 01 

DO 
02 

85 DE 
09 08 
85 D4 
05 B3 
D0 53 
05 ri2 
85 E3 
05 E0 
85 BO 
09 60 
85 D3 
09 0E 
85 D2 
20 83 
20 24 
09 00 
85 96 
00 03 



Fl 
Fl 



CLV 

EVC WG99S 

.; REOn THE ERROR CHONHEL 

RIiERR STV TXTPTR 

LDfl #8 

STO FO 

J3R TOLK 

LEO #*6F 

STO SO 

JSR SECND 
WG140 JSR OCPTR 

CMP #CR 

BEQ WG130 

JSR PRT 

CLV 

EVC P4G140 
WG130 JSR PRT 

JSR LINTLK 
WG998 JNP CHRGOT 

.;PRINT THE n I RECTORY 
DODIR 



FIK POINTER 
SET FO 



iCOMMOND CHONNEL SO 

iSEHD SO 
GET BVTE FROM DISK 



PRINT BVTE TO SCREEN 

LOOP FOR MORE 
PRINT CR 
UN TOLK 
DONE WITH CMD 



Fl 
F5 



INV 


•GET LENGTH OF CMD 


LDO < t>=:tptr > .. V 




BNE DODIR 




DEV 




STV FNLEN 


• SET LENGTH (.-!> 


LDO #<EUF+1 


;FILE NOME ODDRESS 


STO FNODR 




LDO #>ELIF 




STO FNODR+1 




LDO #8 


.; DEV ICE ODDRESS 


STO FO 




LDO FLOG 


; MEftNS DIR 


BNE LOODE 


.;D0 R LOOD 


LDO LO 


.:SOVE LO 


STO WSW 




LDO DFLTO 


.;SOVE DFLTO 


STO CNTDN 




LDO #*60 


iSECONDORV ODDR 


STO SO 




LDO #14 


:OPEN THE FILE 


STO LO 




JSR UNLSN 


.DON T LISTEN TO Fl 


JSR FOPEN 




LDO #0 




STO SOTUS 


.;SET STOTUS TO 


LDV #t03 


.;LOOP THREE TIMES 



0215 


07C;E 


34 


Dl 




WG220 STV 


FNLEN 


0216 


07D0 


R2 


0E 




LDX 


#14 


0217 


07112 


20 


70 


F7 


JSR 


CHKIN 


0218 


07115 


20 


CF 


FF 


JSR 


BOS IN 


0219 


07118 


35 


FD 




STO 


TMP2 


0220 


07Dfl 


Fl4 


96 




LDV 


SOTUS 


0221 


07DC 


D0 


29 




BNE 


W0235B 


0222 


07riE 


20 


CF 


FF 


JSR 


BOS IN 


0223 


07E1 


85 


FE 




STO 


TMP2+1 


0224 


07E3 


M 


96 




LDV 


SOTUS 


0225 


07E5 


D0 


20 




EHE 


WG235E 


0226 


07E7 


h4 


Dl 




LDV 


FNLEN 


022? 


07E9 


88 






DEV 




0228 


07Efl 


lie 


E2 




BNE 


WG220 


0229 


07EC 


20 


CC 


FF 


JSR 


CLRCHN 


0230 


07EF 


1=16 


Efl 




LDK 


CNTDH 


0231 


07F1 


E0 


03 




CPX 


#3 


0232 


07F3 


F0 


05 




BEQ 


*+7 


0233 


07F5 


fl6 


B3 




LDX 


WSW 


0234 


07F7 


20 


BC 


F7 


JSR 


CHKOUT 


0235 


07F(=l 


06 


FD 




LDX 


TMP2 


0236 


07FC 


ft5 


FE 




LDO 


TMP2+1 


0237 


07FE 


20 


D9 


DC 


JSR 


LINPRT 


0238 


0801 


fl9 


20 




LDO 


#' 


0239 


0803 


D0 


06 




BNE 


SKIPB 


0240 


0805 


110 


6C 




LOODE BNE 


LOOD 


0241 


0807 


ri0 


5D 




WG235B BNE 


WG230 


0242 


0809 


ri0 


C3 




WG220E BNE 


WG220 


0243 


0S0B 


20 


D2 


FF 


SKIPE JSR 


BSOUT 


0244 


080E 


20 


CC 


FF 


JSR 


CLRCHN 


0245 


0811 


fl2 


0E 




I.-JG250 LDX 


#14 


0246 


0813 


20 


70 


F7 


JSR 


CHKIN 


0247 


0816 


20 


CF 


FF 


JSR 


BOS IN 


0248 


0819 


48 






PHO 




0249 


0Slfi 


20 


CC 


FF 


JSR 


CLRCHN 


0250 


08 in 


68 






PLO 




0251 


081E 


fl6 


96 




LDX 


SOTUS 


0252 


0820 


D0 


44 




BNE 


WG230 


0253 


0822 


C9 


00 




CMP 


#0 


0254 


0824 


F0 


26 




BEQ 


WG240 


0255 


0826 


fl6 


BO 




LDK 


CHTDN 


0256 


0828 


E0 


03 




CPK 


#3 


0257 


0820 


F0 


05 




BEQ 


*+7 


0258 


082C 


06 


B3 




LDK 


MSU 


0259 


082E 


28 


BC 


F7 


JSR 


CHKOUT 


0260 


0831 


20 


D2 


FF 


JSR 


BSOUT 


0261 


0834 


20 


CC 


FF 


. JSR 


CLRCHN 


0262 


0837 








.; 




0263 


0837 








; CHECK FOR 


STOP KE 


3264 


0837 








.; 




0265 


0837 


20 


01 


F3 


JSR 


STOPl 


0266 


083fi 


F0 


20 




BEQ 


WG230 


0267 


083C: 


20 


E4 


FF 


JSR 


*FFE4 


0268 


083F 


F0 


D0 




BEQ 


WG250 


0269 


0841 


C9 


20 




CMP 


#*20 



SOVE NEW COUNT 
DISK CHONHEL 



CHECK STOTU; 
EOD STOTUS 



CHECK STOTUS 

MORE TO DO? 

NOT DONE VET 

CLEOR CHONNEL 

CHECK DFLTO FOR SCREEN 

OPEN THE PRINT CHONHEL 



print line number 
print spoce 
skip over bronches 
<jmp:> 

<JMP> 

•::jmp> 



DISK CHONNEL 



; BOD 
EOL 

CHECK DFLTO FOR SCREEN 



.;STOP KEY 

.;VES. .. 

;GET CHOR FROM KEVBOORD 

; NOTHING... 

; SPOCE BOR? 



0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
02£!3 
0234 
0235 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 

0296 
0297 
0298 
0299 

0300 
0301 

0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 

0310 

0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 



0843 
0845 
0848 
0840 
084C: 
084C 
084E 
0850 
0852 
0854 
0856 
0859 
085C: 
085F 
0862 
0864 
0866 
0866 
0866 
0866 
0869 
086E 
086E 
086F 
0870 

0873 
0873 
0873 
0873 
0875 
0877 
0879 
0S7C 
087E 
0880 
0882 
0885 
0887 
0889 
08SB 
08811 
088F 
0891 
0893 
0895 
G1898 
089B 
089II 
089F 
08f=ll 
08fi4 
0Sfl7 
08l=lfi 
08ftli 



ri0 CC 

20 E4 FF 

F0 FB 

110 C:5 

fl9 01" 

fl6 Bft 

E0 03 

F0 05 

fl6 B3 

20 BC F7 

20 ri2 FF 

20 CC FF 

20 83 Fl 

1=10 02 

110 R3 



20 CC FF 

R9 0E 

20 RE F2 

68 

68 

4C 89 C3 



Pl9 00 
85 96 
911 



85 
20 
I=l5 9€ 



29 
D0 



1=1 ; 



20 



22 F3 



10 



54 F3 



30 06 
E6 C9 
110 02 

E6 CR 
R5 CR 
85 2B 

C9 
2fl 



C5 



20 42 C4 
fl5 B3 
C9 2F 
D0 03 
4C 89 C3 
20 R7 C5 
4C C4 C6 
4C E6 F3 



WG240 



BHE 


WO250 


;H0. . . 


JSR 


*FFE4 


;RNV REV START 


BEQ 


WG255 




BNE 


WG250 


;'::jriP> 


LDR 


#CR 




LDX 


CMTDN 


.; CHECK DFLTG F 


CPX 


#3 




BEQ 


*+7 




LDX 


WSW 




JSR 


CHKOUT 




JSR 


BSOUT 




JSR 


CLRCHH 




JSR 


UNLSN 




LBV 


#t02 


.: DO TWICE 


BNE 


WG220B 





.; CLOSE FLOPPY RHD RETURN 



WG230 JSR CLRCHN 
LDR #14 
JSR FCLOSE 
PLR 
PLR 
J MP RERHV 

.. LORD R FILE 



LORD 



LORDl 



WG300 

LDERR 
CMDEHD 



LDR 
STR 
STR 
JSR 
LDR 
RND 
BNE 
LDR 
BMI 
INC 
BNE 
INC 
LDR 
STR 
LDR 
STR 
JSR 
JSR 
LDR 
i:;MP 
BNE 
JMP 
JSR 
JMP 
JMP 



#0 

SRTUS 

VERCK 

LD15 

SRTUS 

#SPERR 

LDERR 

*F384 

LORDl 

ERL 

LORDl 

ERH 

ERH 

VRRTRE+l 

ERL 

VRRTRE 

RUNC 

LNKPRG 

FLRG * 

#••.■• 

WG30G 

RERDV 

STKTPT 

NEWSTT 

LD209 



.; CLOSE FLOPPY 
iCLERN UP THE STRCK 
.; RETURN " READY" 



CLEAR STRTUS 
LORD NOT VERIFY 
LOflli R PROGRRM 

CHECK STRTUS <EOI 0K> 

CHECK FOR <-04> ROM 

NOT ■:. -04 > . , . . 

FIX THE LORD ■::-04:) RON 



SET BRSIC-S POINTERS 



FIX POINTERS 

FI>-:; LINKS 

CHECK FOR LORD OR RUN 

LORD ? 

NO. . . 

LORD RETURN TO BRSIC 

SET TXTPTR FOR RUN 

RUN PROGRAM 

PRINT "LORD ERROR" 



0326 


OofiD 






0327 


OShD 






0323 


OoflD 






0329 


08HD 






0330 


OSHD 






0331 


0SRD 


R5 


34 


0332 


OoHF 


13 




0333 


OS BO 


E9 


RB 


0334 


0SE2 


85 


34- 


0335 


0SB4 


fl5 


35 


0336 


y3B6 


E9 01 


0337 


0SB8 


Q5 35 


03 33 


OSBft 






0339 


08BR 






0340 


OSBft 






0341 


OSBh 


HO 


01 


0342 


08 BC 


R9 


00 


0343 


08BE 


35 


C7 


0344 


08C0 


R9 


07 


0345 


0SC2 


35 


Cy 


0346 


08C4 


h5 


34 


0347 


08C6 


35 


5C 


0348 


08CS 


R5 


35 


0349 


OSCh 


35 


5D 


0350 


08CC; 


Bl 


i::7 


0351 


08C:E 


91 


5C 


0352 


OoDO 


OS 




0353 


08D1 


DO 


F9 


0354 


08D3 


E6 


511 


0355 


08D5 


E6 


Co 


0356 


08117 


R5 


C.3 


0357 


08D9 


C9 


OS 


0358 


03 DB 


FO 


02 


0359 


OSHD 


BO 


04 


0360 


OSBF 


RO 


00 


0361 


08E1 


FO 


E9 


0362 


08E3 






0363 


0SE3 






0364 


OSES 






0365 


08E3 


fly 


4C 


0366 


08E5 


.-iC 


70 


0367 


08E7 


R4 


34 


0368 


03E9 


fi6 


35 


0369 


03EB 


C8 




0370 


03EC 


no 


01 


0371 


08EE 


ES 




0372 


08EF 


34 


71 


0373 


OSFl 


&6 


1 cl 


£1374 


0SF3 


60 




0375 


08F4 






ERROR 


S = 0000 





THIS ROUTINE POKES TOP OF riEMORV 
DOWN RELOCRTES THE PHRSER RND 
SETS THE WEDGE 



POKE LDR MEMS I Z 
r.;LC 

SBC #<CMDLN 

STR MEMS I Z 

•LDR MEMSIZ+1 

SBC #>CNDLf-l 

STR MEMSIZ+1 

■ MiiVE THE CODE 

MOVE LDV #f01 
LDR #::CMD 
STR SRL 
LDR tt. CMIi 
STR SRH 
LDR MEMS I Z 
STR GRETOP 
LDR MEMSIZ+1 
ST.=i GRBTOP+1 

MOVl LDR cSRL:.'.. V 
STR CGRBTOP' 
I I--IV 

E:NE MOVl 
INC GRETGPH 
INC SRH 
LDR SRH 
CMP #>CMDEHD 
BEQ MUV2 
BCS WEDGE 

MOV 2 LDV #0 

BEQ MOVl 

.: WEDGE INTO BRSIC 

WEDGE LDR #*4C 

STR CHRGET 

LDV MEMS I Z 

LDX MEMSIZ+1 
I NV 

ENE WEDGE 1 
I \i)'. 

WEDGE 1 STV CHRGET+1 

STX CHRGET+2 
RT3 
. END 



POKE TOP DOi-\H 
MINUS ONE 



;:ET UP FROM RDDR 



SET UP TO RDDR 



RELOCRTE 



JUMP INSTRUCTION 



•5VME0L T 


FiBLE 














5VMB0L 


VFlLUE 














flCPTR 


FISC 


BflSIN 


FFCF 


ESOUT 


FFII2 


EUF 


0200 


BUMP 


0760 


CHKIN 


F770 


CHKOUT 


F7EC 


CHRGET 


0070 


CHRGOT 


0076 


CI OUT 


F16F 


CLRCHH 


FFCC 


CMD 


0700 


CMIiEHD 


0SRD 


CMDLH 


01flri 


CUTDN 


00BR 


CR 


000D 


DFLTO 


00B0 


noniR 


079fl 


ERH 


00CR 


ERL 


00C9 


Ffl 


00D4 


FCLOSE 


F2RE 


FLAG 


00B3 


FNRDR 


00Dfl 


FNLEN 


00 Dl 


FOPEH 


F524 


GRETOP 


005C 


LR 


00D2 


LD15 


F322 


Lri209 


F3E6 


LUERR 


03RR 


LIHPRT 


DCD9 


LISTH 


F0BFI 


LHKPRG 


C442 


LORD 


0373 


LORDl 


0SSD 


LOftDB 


0S05 


MEMS I Z 


0034 


MOVl 


03CC 


M0V2 


0SriF 


MOVE 


©SEA 


NEWSTT 


C:6C4 


NOMRIN 


074E 


HOTDIR 


0750 


OPEN I 


F466 


PIRK 


ESI 2 


POKE 


0SRD 


PRT 


E3D8 


RDERR 


0774 


RERDV 


C389 


RUHC 


C572 


SR 


00D3 


SftH 


00C8 


SflL 


00C7 


SRTU3 


0096 


SECND 


F123 


SKIPB 


080B 


3PERR 


0010 


SPMSG 


F315 


STOP 1 


F301 


STXTPT 


C:5R7 


TRLK 


F0E6 


TMP2 


00FD 


TWMIT 


F3E6 


TXTPTR 


0077 


UNL3H 


F1S3 


IJHTLK 


F17F 


VRRTRE 


002fl 


VERCK 


0091" 


WEDGE 


0SE3 


WEDGE 1 


0SEF 


WG100 


0707 


WG110 


0722 


WG 1 1 5 


07311 


WG120 


076E 


WG 1 30 


0791 


WG140 


0784 


WG220 


07CE 


WG220E 


0809 


WG230 


0366 


WG235B 


0S07 


WG240 


084C: 


WG250 


0811 


WG255 


0345 


WG300 


0804 


WG997 


0748 


WG998 


0797 


WSW 


00E3 



END OF flSSEMELV 
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"No! I don't want any middlemen, put me 
right through to your computer." 



R an d o ra H c: c ess F" i 1 e I n d & ■-:-. i n -j 



F o r- + h Q s e '.u r- 1 1 1 n -3 !■-■ ^-• o y r ■■ a.ri'i s t h z^.t ri bk-' e r sj-i d o m b.o o e -.■ ■-■ 
record hand lirf-y.. a. rou+i ne ha.? been de^-'e lored by Jim Hi ndsor 
o-H Eur 1 my ton.. Orrtario, Ti-e foutire i£ basically an 

a 1 -3 o r- 1 + h m t h at an II c c n >■.> e --■ t a r e ■ ::: o r c4 fi u rn ?-> a r ■■ i fi to t i- i e 1 o ■:: at i o n 
ot the record withi.-i tne +ile'. 



2Gi40 Disk 

Index 5j 'fd Mairi Recor'd locatiofis i'-i.jr' 



dscn 



3> Index f i le ct reoor'ds a.t 1>J- recoT'd:-- rer- sector- 
h •' Ma.in ti le o+' record:r' at .-• reccii^'ds Kver"- sector' 

Ta^k fl - Di'-.-'ide a.'-'e.i labi le sectoins ir'to secto-rs to be used 
a-~. the inde::-': +1 le ancJ sectors to be ust'd tr^r the 
rrra.i n ti \<s; and to obtain en e'"'.ua. l nuriiber- C""" each 
reoof'd ty>-'e '-'index sind rriain.' on a. di£-kette» 



For 10 index records sector ar^d .:■ niain !-'ecords,-'sector 
(■:• Ian i.MOu I'd be B2i- -to 1 I'ji.ms ■ 



of'je 



I '''ide •■■; Kec:C'r''-di:- 



Reoot*"-d h-lc' 1 

1 - .2S0 

201 - 480 

401 — 600 

601 - 300 

801 - 1000 

1001 - 1200 

1201 - 1400 

1 40 1 - 1 500 



• a ■ :: t :: h-i o . '5 e c + o r- Mo. 



1 - 


- 20 


i 

J. 


-■ 20 


1 - 


- 20 


1 - 


- 20 


J. 


~ 20 


,1. - 


- 20 


1 - 


- 20 


1 - 


- 1 



(i.) 



Iain Records 



:ird No. Track No. Sector 'v-\o. 



> - at. r 

Track IS re; 

923 -• 1251 

1252 - 1500 



:9 - 17 - 20 

■ e r ■ '■.•' e d t o r d i r €•• c t o r y 

13-24 0-13 

25-30 0-17 

31-35 - 16 ^2) 



hach ot the tour Main Record area.s i.Mi 11 be kno'.un 
track zones. 



Note (1> R l+houah sector is a.'-'a.i lab le on tracks 1 
is not used in this exa/Mi--' le. 
I.. 2 '■' Sect'Or 15 $■■. 16 0+ tract-' 55 not us€-d 



it 



Task B — Wri+e a subrou'tine' to cori'...'er"t arry record number 

( say HR ) to tfie track.- sector ai-"id record number- 
I.M i th i n the sector . 

Var- i ai:' le I dent i -f i cat i on 



HR 

TR-::i> 
TR'::2> 

SN':;2> 
SR<1> 
SR<£> 



Number- o-f the Record., the location o-f which is 

r-ectuir-ed 

Index -ti le track number- tor- NR 

Main ti le track number- -tor- NR 
Index ti le sector- number- -tor HR 

Main ti le sector number- tor NR 
Index tile record number- for- HR <1-10.") 

Mai n tile record number- t=or- NR < 1 -3 > 



Z<1> - Z<4> delimiters tor the track zones luhich have a. 
ditterent number- ot a.v-ai lais le sectors 
Bl number- ot records K-er- track < within a track 
zone .■> 
H • Bl-i 

C 1 less thari the lotuest tr-.ack number- in a 
track zone 

By usin-i-i this subroutine it is not necessay to carry ariy 
intormation on the index ti le -Hiiriout uiher-e the record is 
loc-ated on the m.3.in ti le, 

Subrout i ne Cori'-.-'ert 

Fed HR.. this subroutine uiill return TRCl).. SN'C1>,. SR<1.> 

arid TR^^;:'.. 3H'::2>.. SR'C2;.' tor .a 1586 record file ot 1508 index 

records at l£i records.-'sector- -snd 1506 main records at 3 

r e c o r d s . ••' sect o r- . 

40500 REM .**.* SUBROUT I HE COHVERT .*.** 

40501 REM •+••++ FINB IHDEK FILE LOCfiTIOH •+-++ 

40502 Z = <HR -+- 199>.--'20Gi 
40505 TR'::i> = IHT<Z> 

40510 Zl = HR - < '.: TR < 1 > - i::'*200> 

40515 Z2 = CZl ■+- 9. •'.-■■ 10 

40520 SH'^l.:- = IHT<Z2::' 

40.525 Z3 = Zl - <'::SH';i:.' - 1>.*10:;' 

40530 SR<1> = IHT<Z3::' 



40550 REM ++•+ FINK MAIN FILE LOCfiTIOH ++•+• 

40549 Z<1.:' = 567 : Z<2'j' = 927 

40552 ZC3> = 1251 ■■ Z';;4::' = 1586 

40560 FOR .J = 1 TO 4 

40565 IF NR - ZCJ.'^ <= THEH 40576 

40575 NEXT .J 

40576 NZ = HR 
40578 IF J > 1 THEN HZ = NR - Z<.-T-i> 



find track 
zone 



40580 OH .J GOTO 40591 .. 40592.. 40593.. 40594 



• convert to number 
within track zone 



40591 fl=62 

40592 fl=59 

40593 0=53 

40594 fi=50 



Bl=63 • C=S 

Bl=60 ■ C-IS 

El =54 ■■ C=24 

Bl=51 ■■ C=30 



GOTO 40600 define 
GOTO 40600 zone 
GOTO 40600 



P'ar"-ameters 



4 06 00 Z =cHZ + fl>.-'Bi 
40605 TF:'::2> = IHT'::Z> 
40610 Zl = HZ - <<TR<. 
40615 Z2 = '::Z1 + 2>.'3 
40620 SN'::2> = IHT<Z2> 
40625 Z3 = Zl - <<3N'- 
40630 SR'::2.' = INT':;Z3> 
40640 TR'::2> = TR(2> + 
40650 SH':;2> = SH(2> - 



40660 RETURN 



1>*B1> 



1*3 



■!- 1 nd 



sector., 
f ecQf'd 

OOiYiK-'£-'riSSi.'t'€' i"Of"' # O'*^ 
tracks: 1 ■■•• IcU.ier' 3/"id 

a>-..'aj. IaJ::a Ity o^ 
-i^rvtor 0, 



E d i t o r'- ■' s h-i o 1 6" 

Vou rna.y be a-skin-Hi.. "Why an index tile routine arid a. rnairi 
tile routine i.uhen the luho le rur|.:.o£e is t<:, do a.u.ia.y with the 
index ■"' " . The index ti le really doesr;' t do any inde>::iny aj-"id 
m i -i" h t h a.'v' e b e e n c a 1 1 e d a, ■ ' -s u b - m a, i •■ 'i ' + i. 1 e . J i ri i d e <■..' e 1 ci !■■•■ e d t- h e 
i-^'ro-sram tor his OM.in use arid tound it more et+'icief!t to srlit 
eao:h entry into 2 files: .5-, "mdex" +i le •+•'o^■ name 3s-<.d Social 
Insurarice Number and a. main tile to.-- any reriia.iriin:.i :r-.tc 
1:; ad d r ess., p h o ri e # ■ e t o „ '•' . It ; .bs- an t i o i r- a. t e ■::>' 1: i- ■• a t l 1 8 

chana.oters uiou Id be re'XUired -t-or each eritry. With .-:55 ryte 
sectors., this i.mou Id imi-^ose a re:striction ot d entries rer 
sector.. U.I a.s tins 35 byte:5. The fiia::::i '.■lurn i.Mou Id also be 

restricted to 2*670 tib laj-ik disk has 6'^0 sectors-^ or- 1349, By 
SP 1 i tt iri'i* ur- the entries into 25 ar'id '-:5.. each sector- or b lo.-;k 
c ari -t i 1 1 e d t o o Br-- a.o i t ..^ .a. 1 1 o m.i i r i 3 1500 e r-i t r i e s , T *• -i i s -t i -3 t-i r e 

could also be increased ss- some b locl-::s =<('■& uriused. 

This method ot index in-? has only one dratuh-ack : \^F:., Ti-iat 
is.' each item in the -t i le must haoe 3 number 1.. k!.. 

'■'-<,. . .etc. r' that may be ir-re le'-'ant tc trie d-sta beirr^ recorded^ 
There-t'ore .■ -a.cce-ss to a record re'^iuire-s entr-y o-t' thee 
corresf:'oridi n-i< ''r-'R' and in the .Bbooe ex:.aj!iK' le HP has a, r-an-i-ie 0+^ 
1 to 1 590 . 

This I.MOU Id be ideal tor- .ar'!"::' licat ions such -bz^- a mai liri-y 
list i.i.ihere each subiscriber haj£: .a. number., but -for a. inoentory 
it becomes someiuhat imf^'raotic le -since 'r-iR'' will ri-'-obably f'lot 
be your part number. Honie'-.-'er- .. Jim s method is :still simnler 
than record in-y disk co-ordinates, .Consider this.^ ha.-.'e PET 
as:sii-fn "'HP's" to the record element that M.'ill .be nrio.ani ly 
used -for record recall. For e^'a.f'in le. 

=:F'.art #1 > .. H 
(P-ant #2:-' .. X+i 
<P-ar-t #3> .. :■•■:+ 2 



» . .and so on. This ir'itormatiori could be-' stored in bj-'i r.=in dom 
index tile a. lon-=i iMith trie total number- ot entries '-'TE) so 
that PET 1.MOU Id knoi.1.1 LMhere to st.ar-t ass iLTiin-s nei.M HP's to neu.i 
entries. 

With thie desired Part # entered., the index ti le could be 
seanched.- NR extracted and parsed into Jim's main -tile 
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INDEXING PROGRAMMES ON CASSETTE by Michael Casey 



At the April meeting of the Pet Users Cliib, I discussed a revised tape 
index programme which I had developed. Since then, I have had several 
requests to document my theory so that everyone can take advantage of it. 
I started thinking about this subject after reading David Wilcox's index 
programme in the Pet User Notes. I tried his index programme and it worked 
well. However, it had a few disadvantages which I was determined to 
eliminate: 

1) it was very tedious to create an indexed cassette (the index 
programme had to be run each time you added a programme) 

2) a lot of tape was wasted 

3) his formula was too restrictive. 

Items (2) and (3) were partially resolved by including an array of the 

programme lengths in the index programme itself, calculating the summations 

of these lengths for each programme and applying these sximmations to his 

formula to calculate the FFWD times. Item (1) could not be resolved without 

changing his entire concept which involved the splitting of the tape into 

FFWD time segments. 

My objective, then, was to find an indexing formula which would divide the 

tape in terms of length rather than time. ^ It took me quite a while to find 

the solution. My biggest hangup was trying to forget the notion of a 

"fast-forward ratio" which, by the way, is a totally insignificant and 

utterly meaningless term. 

The description which I am about to describe is based, to some extent, on 

the specifications of my particular PET. Because of the different characteristics 

of PETs, tapes and tape drives, it may be necessary for you to adjust some 

of the parameters that I used. So that you will be able to do this, I have 

included all of the factors and all of the formulae. 



Basic Factors 

a) the fast- forward reel revolves at a constant rate although it may take a 
few jiffies to get up to normal speed and it doesn't stop on a dime. 

b) I was using a C60 Realistic Supertape which contained 281' of tape 

or 3372". The diameter of the empty spool was .875" and the thickness of 
the tape was .0068". The diameter of a full spool was 2.0". 

c) the total time to FFWD the entire tape including front & back leaders 
was 5906 jiffies (obtained through experimentation) 

d) normal play speed = 1.875"/second 

e) both the programme and its label are written twice on a SAVE. The length 
of 1 label = 192 bytes. 

f) the front leader on a SAVE is 10 seconds and there is a 2 second leader 
between the first and second set of recordings. In addition, there is 

a small gap between the programmes and the labels. 



^ 



g) the formula for the circxamference of a circle = TT X diameter 
h) the formula for determining the roots of a quadratic equation is 

2 
-b +or-square root of b - 4ac 

2a 

i) the formula for the siam of an arithmetic progression is 

m X (a, + a ) where a, is the first term 
1 n_ 1 

2 a is the last term 

n 

n is the number of terms and 

m is the difference between terms 



Step 1 Determine the nuinber of revolutions to wind full tape 

Length of tape = C + C- + ... C where C is the circumference of the empty 

spool, C is the circumference of the spool after 1 revolution, C is the 
2 ^ 

circumference of the spool afer 2 revolutions... and C is the circumference 

n 

of the spool after n revolutions. 

Therefore, L = ffd, + fid^ +. . . Tf d where d. is the diameter of the empty 

1 2 " n 1 

spool, d is the diameter of the spool after 1 revolution... and d is the 

diameter of the full spool. 

After plugging in the parameters, I used the formula for an arithmetic 

progression and solved the resultant equation for n, using the formula for 

the roots of a quadratic equation. 

Based on my parameters, n = 796 meaning that winding 3372" of tape requires 

796 revolutions of the spool. Prcan this I was able to calculate the FFWD 

time per revolution 5906 / 796 or 7.419 jiffies per revolution. 

Step 2 Determine the SAVE rate in terms of bytes per jiffy 

The initial formula that I started with was 

Time to SAVE = Constant (for leaders) + 2 X (prog. + label lengths) in bytes 

bytes per jiffy 

This equation has two xanknown factors - the constant (which I kheW was 10+2 

seconds + the time to play the gaps between labels and programmes) and the 

rate. 

I saved a couple of programmes of different lengths, noted the SAVE times and 

programme lengths in bytes and used this data in the above formula. This gave 

me two equations which I solved giving: 

Constant = 730.15 jiffies 

Rate = 1.8496890 bytes per jiffy 

Step 3 Calculate length of a programme in inches of tape 

Distance = Rate X Time 

Using the formula in Step 2, I can calculate the length of time to SAVE any 

programme. Given that the rate of SAVE is 1.875" per second, the formula for 



determining the length of any programme in inches is: 

1.875 X (730.15 + (2 X (192 + L) / 1.84968901)) / 60 where L = prog, length 

in bytes 

Step 4 Calculate # of revolutions corresponding to Y inches of tape 

Using the same formula in Step 1, I can plug in Length and solve for n. 

Number of revolutions for tape length L = 

-734.77912 + SQR((F X F) + 4 X (534.974599 XL) / 2) where F = 1469.58824 

Step 5 Calculate FFWD time for Z revolutions 

Number of revolutions in Step 4 X 7.419 (calculated in Step 1) . 



The formulae in Steps 3 and 4 are in the Index Programme and by using the 
summations of programme lengths in bytes, the FFWD times can be calculated. 
To use this programme, SAVE it as the first programme on the cassette with 
dummy entries in the DATA statements. Then simply continue to load your 
programmes until you run out of tape. Keep a note of the programme names 
and (7167 - FRE(O)) in sequence as you do this so that you can plug them 
into the DATA statements when you have finished saving, (include INDEX) 
When you have loaded all the programmes, rewind tape, load INDEX, alter 
the DATA statements, rewind tape and SAVE"INDEX". Then you can RUN and see 
if it works . 

It takes several seconds to do the calculations. To eliminate this delay, 
you could take the calculations out of INDEX, put them in a separate 
programme and plug the FFWD times into an array in INDEX. 

Initially, I found that I wasn't able to hit programmes near the back end 
of the tape and I attributed this to the fact that there is some "run on" 
after the programme cuts the motor switch. So I reduced the FFWD times by 
a factor (maximum 120 jiffies) which varies directly with the relative 
position of each programme. This eliminated the problem. 

So there it is. I hope that you will be able to use this technique to free 
up a pile of cassettes and start using your over 30 ' s more efficiently. 

By the way, I am using this theory, together with some others, to develop 
a system which I call 'CRAMPET' - Cassette Random Access Method for the PET. 
The concept has several limitations but I know it can work. Its main 
advantage is the ability to access any "record" on a tape file without 
reading the "file" sequentially and, the ability to go from "record" to 
"record". I am having a few problems with the run-on due to the fact that 
the "record" lengths are relatively short. However, I think this can be 
ironed out. Any of you who use data files and are not planning to purchase 
tha disk may be interested in pursuing this idea with me. Please give me a 
call or write to me. Together, we may be able to achieve the ultimate: 
'CRUMPET' - Cassette Random Update Method for the PET. 



Michael L. Casey 

BCS 

6105 Yonge Street 

Willowdale, Ontario 

M2M 3W2 

416-223-8901 
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ABSTRACT 



The summer season of 1979 at East Kamak witnessed the first on-site iise of a 
microcomputfer for all aspects of archaeologocal fieldwork and report preparation. 
The purpose of the present paper is to highlight some of the more important 
operations that are able to be carried out by coitputer, as well as give a summary 
of the Slimmer season's work. 



******* 



The concept of using computers in archaeology is not new. Significant 
advances in the use of large scale computers has been taking place for the 
last dozen years in North America, Great Britain, Europe, and Israel. It 
was noted early that a coiiputer's ability to handle large amounts of data 
with unmatched speed and efficiency would be a boon to the social and 
historical sciences and archaeology in particular. Thus there have been 
many recent articles in the literature devoted to this idea. 

However, when one examines in more depth the systems referred to, one 
sees that very few of them have even arrived at the stage of feeding the 
site data into the machine. The constraints and restrictions placed on 
archaeologists preventing them from gaining access to computer facilities 
proitpted the present author (G.D.H.) to attempt to rectify the situation. 

Late in 1978, the author approached Professor Donald B. Bedford of the 
Dept. of Near Eastern Studies, Uhiversity of Toronto, for assistance and 
a testing groimd for a proposed conputer scheme. It was decided to put 
together a preliminary program of activities for field trials at E. Kamak 
the following summer. If such a scheme would work in the heat of the 
Egyptian day, it would likely work anywhere. 



It was determined that a totally portable con^uter was required for at 
least the following six purposes: 

- site artifact description and recording for 
long term storage 

- physical sitfe structures (features and loci/strata) 
recording 

- ability to review, alter, or delete any site data 
already recorded 

- ability to sort or partition all or part of this 
data by means of specific requests 

- ability to perform basic statistical analyses on 
all or part of the data 

- ability to store schematic representations of the 
site plans for future retrieval and use 

A comprehensive data base management approach was therefore needed. 
A microcomputer was the only machine that offered the necessary characteristics 
and was truly portable. 

The overall design objective was that the system would be used as the 
exclusive tool of the archaeologist. It could be taken on site and offered 
a complete , coitprehensive system of data management. All other attempts 
to date had been only piecemeal. 



The proposed program of activities carried out were as follows: 

Task 1 - specification and procurement of microcomputer 
and associated peripheral devices 

Task 2 - writing and testing of germinal conputer programs 
for the aforementioned purposes 

Task 3 - transporting the computer intact to E. Kamak from 
Toronto and back again 

Task 4 - setting up and field testing the computer itself 

including performing test rvins on actual site data 



TASK 1, SPECIFICATION AND PROCUREMENT OF MICBOCOMPUTER 

A low poweor, low cost, contact, portable computer was required for the 
job. In addition, the machine needed to have a relatively large memory 
storage capacity, operate with various peripheral devices (e.g. printer and 
mass storage devices) , as well as posess the ability to handle graphic 
characters. The P.E.T, 2001 Microcon5)uter by Commodore offered the optimal 
coirbination of these factors as well as having a very powerfull and fast 
programming language . 

The mass storage device chosen was a dual flexible disk system, and the 
printer was designed to print a wide range of graphic characters and symbols 
in addition to the standard alphabetic and numeric characters (diag. 1). 



TASK 2. WRITING AND TESTING OF GERMINAL PROGRAMS 

This section describes the conputer programs that were written to encompass 
the six purposes outlined previously. 

The stipulations of archaeological fieldwork required that the conputer 
be taken directly onto the site or at least close enough so that data from 
the site books or the physical artifacts themselves could be fed into the 
machine directly. This mode of operation had the additional advantage that 
the director could oversee and verify the data immediately upon its entry 
into the conjjuter. 

Another requirement was that no voluminous, complicated coding forms 
would be allowed. Data had to be typed intothe coii:5)uter's memory directly 
from the keyboard. This was accomplished by developing in advance the 
typography for all types and descriptions of artifacts. In this paper, 
artifact will be used to denote both site artifacts, e.g. pottery, coins 
bones, small finds etc. as well as physical features, e.g. walls, pits, 
strata/loci etc. The typography is in the form of a table or 'Typography 
Chart' (diag. 2) which is resident inside the computer. It represents 
the most likely set of Artifacts and their attributes to be expected on the 
site, based on previous excavation or the director's judgement. Since the 
table can be altered to suit any site, this set of programs is truly 
universal. 



It is this table that serves to drive the data input section of the 
program. This input section allows even unskilled operators to handle 
efficient d&ta entry. The operator simply specifies the artifact which he 
or she is about to describe and th6 computer responds by presenting the 
operator with a set of miiLti -choice questions. These questions correspond 
to each of the attributes found on the Typograpky Chart for the selected 
artifact. The operator sinply answers the questions one by one by 
pressing single, keys on the computer keyboard. This is done sequentially 
until the attributes are complete for that artifact. At this point the 
con^uter automatically stores all the descriptions of the artifact on its 
mass storage disks and waits for the next artifact to be specified. This 
allows any artifact to be entered at any time and obviates the need for 
grouping, for example, all pots together and entering them at once. The 
method corresponds most closely to the way data is recorded by site 
supervisors in their site books. 

After the day's data has been entered into the mass memory disks, any 
number of requests may be made of it, or any data stored previously. The 
director can ask to see, for example, all green glazed rim sherds from 
feature 25A ; strattun 15. The computer responds by printing out complete 
descriptions of all pots corresponding to this request. In this way, the 
director can perform his searching and sorting on all the data for that 
season before the dig ends and thus save weeks of work. This is one of the 
more important and unique features of this set of programs. 

In order to revise and update the data already in memory, a coir5)rehensive 
scheme of editing is included in the programs. If it is found that an 
artifact has been improperly entered, the operator can retrieve that datum 
by means of its description or number, and alter it in any manner desired. 

Once the data has been entered to the satisfaction of the director, the 
sorted and partitioned data set created by his requests can be sijbjected to 
numerous statistical analyses. These include the siirple stats such as 
frequency histograms, averages, standard deviations, correlation coefficients 
etc., as well as more sophisticated techniques such as analysis of variance, 
seriation, multi-variate regression, and eventually discriminant analysis 
and cluster analysis. These last are included at the discretion of the 
director and must be of a size small enough to fit onto the microcomputer 
used. 

Another unique feature of the P.E.T. coitputer is its ability to draw 
schematized representations of the site plans on its screen and print them 
on paper (diag. 1) . These are particularly useful when new features are 
discovered and areas of the site need to be highlighted. The director can 
hand these to his respective site supervisors with pertinent information 
pinpointed. 

A future version of the programs will include the ability to show 
automatically on the proper site schematic the responses to the archaeologist's 
requests. For example, at the archaeologist's request, all green glazed 
rim sherds could be plotted automatically on the correct site plan without 
human intervention. 

The data input, basic stats and site plan drawing sections of the 
program were coitpleted before travelling to Egypt, as was the format for the 
Typography Chart. This chart was then altered while in Egypt to suit the 
E. Karnak site artifact distributions. Work is now almost complete on the 
remaining sections of the programs - data requests and retrieval, data 
alteration, and advanced statistics. By Autumn 1979 final testing will take 
place in Toronto on data brought back from E. Karnak. 



TASK 3. TRANSPORTING THE COMPUTER INTACT 

This was the part of the program of activities that held the greatest 
potential for trouble, but it all went quite smoothly. The computer was 
dismantled into 4 small sectional components: Printer, TV screen (CRT) , 
Main Computer and Keyboard, and Disk Drives (mass storage) . These components 
were packed in sturdy boxes, the whole package taking up less than 4 cu.ft. 
The disk drives and CRT were put on the airplane as cargo and the computer and 
printer were taken as hand luggage. Disks with programs recorded on them 
were packed inside the main conputer for protection from magnetic fields 
and X-rays at airport security. 

All customs checkpoints were passed with no interruptions or delays. The 
coit5)uter system was carried by two people (G.D.H. and wife) from Canada to 
New York, to London, to Cairo, to Luxor, to Kamak and still worked perfectly. 
The printer was adjusted for operation at 50 Hz. and the whole system was 
powered by a variable rheostat to enable constant 120 V.AC operation from 
varying (and interndttent) Egyptian 220 V.AC mains current. 



TASK 4. FIELD TESTING 

ffhe system was installed on a table in the office of the Inspector of 
Kamak Antiquities, Sayed Abdul Hamid, to whom we owe a debt of gratitude. 
It was discovered that air conditioning was required to keep the system cool. 
Fortunately, the inspector's office offered the necessary air conditioning 
and a relatively dust- free atmosphere. This was especially important for the 
delicate disk drives which are notoriously susceptible to dust and dirt. ^ 
Thus each night, special plastic bags were put aroxmd the disks and disk 
drives. 

In actual operation, every afternoon the voltage was adjusted and the 
computer system tuimed on. The morning's site books or artifacts were 
brought to the operator for entry. At the end of the coitputer session, 
with all the data recorded and requests made, the machine was turned off 
and enclosed in the bags. All systems and modes operated successfully as 
designed. 

Actual test data from the site were used to demonstrate the usage of 
the programs, and suggest alterations to both modes of data entry and 
eocpected typography of the site. These tests as well were carried out to 
the satisfaction of the director and the operators. 



SUMMARY 

For under $5000 (Can.) archaeologists are now able to purchase a coirputer 
system capable of operating a comprehensive set of programs dedicated to 
fieldwork and analysis. .The programs offer a complete data base management 
system for handling both physical site features and artifacts, as well as 
portraying graphical representations of the site. An additional feature is 
the consultation service offered by the author to prospective users, 
enabling a typography to be created which is particular to each individual 
site. 

The summer season of 1979 at E. Kamak offered an ideal, if harsh, 
testing ground and proved that such a system was viable. It is hoped that 
the savings to archaeologists in terms of both fieldwork and report 
preparation will proirpt further interest in and elaboration of the 
programs, and promote their use. 



July 1979 
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DIAG. 1 Hypothetical site printed by P.E.T. printer 
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